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BEBA A 


“DEFINIÇÃO DE MATRIZES 


CONJUNTOS DIE = ENTRE DADOS EM UMA MATRIZ 


| pe E | COMO PROGRAMAR MATRIZES 
x | | 2 E RECUPERAÇÃO DE INFORMAÇÕES 
VAN Ties | | LM 6.) Ne UU ba USOS PARA AS MATRIZES 





Se você tem uma grande quantidade de 
dados inter-relacionados, a 

informação pode estar perdida entre 
eles. Coloque-os numa matriz 

e o computador extrairá 

exatamente a informação desejada. 


Agora que você já conhece como um 
conjunto pode ser empregado para con- 
servar informações em um programa (li- 
ção Conjuntos: Caixas de Informação, 
página 192), podemos passar ao estudo 
de matrizes. Matriz (ou matrix) é to- 
do conjunto bidimensional que serve de 
meio para armazenar grupos de dados 
inter-relacionados. 

Um conjunto bidimensional é, grafi- 
camente, como uma pilha de gavetinhas, 
onde cada gaveta serve para armazenar 





um único dado. Esta é uma maneira 
muito conveniente de lidar com infor- 
mações pois, para localizar uma delas, 
basta se referir a um elemento do con- 
junto, por meio dos seus números de li- 
nha e de coluna. 

A matriz armazena itens reais, tais 
como os parafusos da ilustração abai- 
xo, onde se pode encontrar imediata- 
mente a caixa que contém parafusos de 
latão de 38 mm, ou para qualquer ou- 
tra que se esteja procurando. Neste ca- 
so o dado da matriz é o número de pa- 
rafusos em cada caixa. 

A matriz pode também guardar in- 
formações abstratas, como o número de 
revendedores de automóveis, discrimi- 
nados segundo a sua nacionalidade e 
marca dos carros vendidos, 

Informações como esta são frequen- 
temente colecionadas como resultado de 
levantamentos, que são a base para o 


programa exposto neste artigo. Entre- 
tanto, a estrutura do programa é a mes- 
ma para qualquer matriz bidimensional, 
pouco importando o tipo de informação 
que ela contém. 

Como exemplo, suponha que você se- 
ja um professor interessado em classifi- 
car os animais de estimação trazidos por 
um conjunto de crianças. Em primeiro 
lugar, seria preciso anotar o nome das 
crianças e descrever quantos animais de 
cada grupo elas possuem. A lista seria 
mais ou menos assim: 


Sílvia: dois periquitos, um coelho. 
João: um cachorro, quatro peixes. 
Carlos: dois hamsters, um gato. 


Recurso muito util para armazenar dados, 
as matrizes servem também para 
classificar pequenos itens como parafusos. 












| 


Jaci: um cachorro, um gato, um hamster, 
Beto: um rato, um coelho, dois peixes. 


Entretanto, em uma lista como essa 
torna-se um tanto difícil extrair infor- 
mações como “quantas pessoas pos- 
suem gatos?"”, ou ''quem tem mais de 
quatro animais?” — e quanto maior for 
a lista, mais difícil será também obter 
respostas. 

A melhor maneira de resolver o pro- 
blema seria distribuir as informações em 
forma de tabela ou quadro, com o no- 
me dos animais dispostos no alto e o das 
crianças à esquerda. Pois bem, é exata- 
mente assim que funciona uma matriz 
bidimensional. 

Em um exemplo pequeno como este 
é simples encontrar a resposta para qual- 
quer pergunta sobre os dados. Entretan- 
to, o computador trabalha com um in- 
findável número de informações. Se vo- 
cê examinar todo o conjunto de dados 
para descobrir quem tem pelo menos um 
gato, ou se quiser saber o nome das pes- 
soas que possuem ratos, verificara que 
o trabalho será tanto maior quanto mais 
ampla for a quantidade de dados. Por 
sorte, o computador pode cumprir essa 
tarefa em questão de segundos, 


DEFINA A MATRIZ 


Equacionado o problema, o passo se- 
guinte será colocar a informação den- 
tro do computador. Se você voltar às pá- 
ginas 192 a 195 verá como definir e usar 
uma matriz unidimensional (também 
chamada de conjunto). Matrizes bidi- 
mensionais são muito similares, envol- 
vendo apenas um pouco mais de traba- 
lho para serem definidas. 

Uma matriz unidimenstonal pode ser 
escrita na forma A(N), onde N é o nú- 
mero dos seus elementos. Uma matriz 
bidimensional, por sua vez, é definida 
como A(L,C), onde L é o número de li- 
nhas e € o número de colunas, Na ver- 
dade, pouco importa se você a definir 
de forma invertida, como A(C,L), com 
as colunas antes das linhas, desde que 
seja coerente com a primeira ou a segun- 
da definições. 

Contudo, mesmo trabalhando com 
uma matriz bidimensional, você preci- 
sará definir duas matrizes unidimensio- 
nais que sirvam de cabeçalho para as co- 
lunas e para as linhas (no nosso caso, 
uma matriz contera o nome das crian- 


Assim como as bolinhas da ilustração, 
distribuídas ordenadamente 

segundo seu tamanho e cor, as informações 
devem ser armazenadas na memória 

de acordo com o grupo a que pertencem. 
























































ças e a outra o nome dos animais). A 
matriz bidimensional conterá os dados. 

Vamos chamar as duas primeiras ma- 
trizes de PETS (€C) e CHS (R) ec a matriz 
de dados de N (R,€). Uma outra ma- 
triz, PT (R), conterá o número total de 
animais em cada linha. No Spectrum, as 
matrizes são rotuladas de p$ (c), cS (r), 
n(r,c)ep (r), pois é permitido apenas 
um caractere para a formação dos no- 
mes. O programa não funcionara no 
ZX-81. Eis um programa para dimen- 
sionar a matriz e ler Os dados de um co- 
mando DATA. 


p= e 1 PR 
| 


100 €C=7:R=5 

110 DIM PETS(C),CHS(R) NCR,C),P 
TR) 

120 FOR J=1TOC:READPETS (J) :NEXT 
130 FORJ=1TOR:READCHS (J) : NEXT 
140 FOR J=1TOR 

150 FORK=1TOC 

160 READ N(J,K) :NEXT:NEXT 

3000 DATA PERIQUITO,GATO, CACHOR 
RO, PEIXE, RATO, HAMSTER, COELHO 
3010 DATA SILVIA, JOAO, CARLOS, JA 


CI,BETO 

3020 DATA 2,0,0,0,0,0,1 

3030 DATA 0,0,1,4,0,0,0 

3040 DATA 0,1,0,0,0,2,0 

3050 DATA 0,1,1,0,0,1,0 

3060 DATA 0,0,0,2,1,0,1 

100 LET c=7: LET r=5 

110 DIM pá(c,7): DIM cã(r,5): 
DIM n(r,c): DIM pt(r) 

120 FOR 3j=1 TO c: READ p5S(J): 
NEXT 3 

130 FOR j=1 TO r: READ cS(3): 
NEXT 3 

140 FOR j=1 TO r 

150 FOR k=1 TO € 


160 READ n(5j,k): NEXT k: NEXT 


J 

3000 DATA "PERIQUITO”,"GATO”,"C 
ACHORRO","PEIXE”,"RATO”,"HAMSTE 
R”,“COELHO” 

3010 DATA "RODRIGO”,"RICARDO”,” 
FERNANDA" ,"BEATRIZ”," JUNIOR” 
3020 DATA 
3030 DATA Q 
3040 DATA O 
3050 DATA Q 
3060 DATA O 


As variáveis Re € foram usadas pa- 
ra facilitar a adaptação do programa: 
afinal, é improvável que sua matriz te- 
nha o mesmo número de linhas e de co- 
lunas que a que apresentamos aqui. As- 
sim, tudo o que você tem a fazer é tro- 
car os números na linha 100 e, logica- 
mente, as informações nas linhas dos co- 
mandos DATA. 

Note agora que os dados entram na 
matriz. Existe uma linha para o cabeça- 





lho das colunas, outra para o cabeçalho 
das linhas e uma para cada linha da ma- 
triz principal. Note também que você 
deve entrar um item de dado para cada 
espaço na matriz, mesmo que ele seja ze- 
ro, ou o computador responderá com 
uma mensagem de erro. 

Agora que os dados estão dentro do 
computador, você deve decidir o que fa- 
zer com eles. Um de seus recursos é ofe- 
recer tantas opções quanto possível: afi- 
nal, é o computador que vai trabalhar, 
e não você. 


ER O MENU Sa 


Será melhor descrever as opções em 
forma de menu. E para a pesquisa dos 
animais você provavelmente precisará 
do seguinte: 


300 LET fo=0: CLS 

310 PRINT '"'"MENU” 

320 PRINT '*"1l- LISTAR ANIMAIS” 
330 PRINT "2- LISTAR CRIANCAS” 
340 PRINT "3- INTRODUZIR TIPO 
DE ANIMAL" 

350 PRINT "4- INTRODUZIR NOME 
DA CRIANCA” 

360 PRINT "5- INTRODUZIR NUMER 
O DE ANIMAIS” 

370 PRINT "6- MOSTRAR A MATRIZ 
380 PRINT ''"SELECIONE OPCAO” 
390 INPUT a 

395 IF a<l OR a>26 THEN GOTO 
390 

400 CLS 

410 GOSUB (a*100+400) 

420 GOTO 300 


No TRS-80, multiplique por 2 os va- 
lores utilizados com o PRINTO. 


300 FOUND=0:CLS 

310 PRINT €43,"MENU” 

320 PRINT €98,"1 LISTAR ANIMAIS 
330 PRINT €130,"2 LISTAR CRIANC 
AS 

340 PRINT €162,"3 
PO DE ANIMAL 

350 PRINT €194,"4 
ME DA CRIANCA” 
360 PRINT €226,75 
MERO DE ANIMAIS” 
370 PRINT €258,"6 MOSTRAR A MAT 
RIZ” 


INTRODUZIR TI 
INTRODUZIR NO 


INTRODUZIR NU 


380 PRINT:PRINT"ESCOLHA A OPCAO 
390 INPUT A 

395 IF A<l OR A>6 THEN 390 

400 CLS 

410 ON A GOSUB 500,600,700,800, 
900,1000 


420 GOTO 300 








Lo 


300 FO=0:CLS 

310 LOCATE 17,1:PRINT"MENU” 
320 LOCATE 7,4:PRINT"I. LISTAR 
ANIMAIS” 


330 LOCATE 7:PRINT"2. LISTAR CR 
IANÇAS” 

340 LOCATE 7:PRINT"3. INTRODUZI 
R TIPO DE ANIMAL" 

350 LOCATE 7:PRINT"4. INTRODUZI 
R NOME DE CRIANÇA” 

360 LOCATE 7:PRINT"S. INTRODUZI 


R NUMERO DE ANIMAIS" 

370 LOCATE 7:PRINT"6. MOSTRAR A 
MATRIZ” 

380 PRINT:PRINT:LOCATE 20:PRINT 
“OPÇÃO” ; 

390 INPUT A 

395 IF A<S1l OR A>6 THEN 390 

400 CLS 

410 ON A GOSUB 500,600,700,800, 

900,1000 

420 GOTO 300 


Cao 


300 FO = O: HOME 

310 HTAB 18: VTAB 2: PRINT "ME 
NU” 

320 VTAB 5: HTAB 8: PRINT "1. 
LISTAR ANIMAIS" 


330 HTAB 8: PRINT "2. LISTAR C 
RIANCAS” 

540 HTAB 8: PRINT "3. INTRODUZ 
IR TIPO DE ANIMAL" 

350 HTAB 8: PRINT "4. INTRODUZ 
IR NOME DE CRIANCA” 

360 HTAB 8: PRINT "5. INTRODUZ 
IR NUMERO DE ANIMAIS" 

370 HTAB B: PRINT "6. MOSTRAR 
A MATRIZ" 

380 PRINT PRINT HTAB 20: P 


RINT “OPCAO "; 
390 INPUT A 
395 IFA<X10RA>õ6THENHBIOO 


400 HOME 

410 ON A GOSUB 500,600,700,800 
+ 900,1000 

420 GOTO 300 





As sub-rotinas a seguir servirão para 
o início do trabalho, embora, mais tar- 
de, você possa adicionar outras opções. 
A primeira imprime apenas a lista de 
animais, fazendo uma procura na ma- 
triz PETS( ) ou p$(). A segunda faz a 
mesma coisa para imprimir a lista de 
crianças. 


499 REM ** OPCAO 1 ** 

500 PRINT ''CLISTA DE ANIMAI 
510 PRINT '* 

520 FOR 9=1 TO c 













530 PRINT pS(3) 

540 NEXT 3 

550 PRINT '*'* PRESSIONE QUALOU 
ER TECLA PARA RETORNAR” 

260 PAUSE O 

570 RETURN 

599 REM ** OPCAO 2 ** 

600 PRINT ''"LISTA DE CRIANCAS 


610 PRINT '"'* 

620 FOR 3=1 TO r 

630 PRINT cS(3) 

640 NEXT 3 

650 PRINT ''"PRESSIONE QUALQUE 
R TECLA PARA RETORNAR" 

660 PAUSE O 

670 RETURN 


Tu 


499 REM 4tt OPCAO 1 4tt 

500 PRINTTAB(S);"LISTA DE ANIMA 
15” 

510 PRINT:PRINT 

520 FOR J=1TOC 

230 PRINT PETS (J) 

540 NEXT 

550 PRINT:PRINT"PRESSIONE QUALQ 
UER TECLA PARA RETORNAR” 

560 IF INKEY$=""THEN5S60 

570 RETURN 

99 REM 44t OPCAO 2 +++ 

600 PRINTTAB(5);"LISTA DE CRIAN 
ÇAS”" 

610 PRINT:PRINT 

620 FOR J=ITOR 

930 PRINT CHS(J) 

640 NEXT 

650 PRINT: PRINT"PRESSIONE QUALQ 
VER TECLA PARA RETORNAR” 

660 IF INKEY$=""THEN660 

670 RETURN 


Co 


499 REM A%% OPÇÃO 1 *** 

200 PRINT TAB( 10)"LISTA DE A 
NIMAIS” 

510 PRINT PRINT 

520 FOR J =) TOC 

530 PRINT PETS(J) 


540 NEXT 

950 PRINT : PRINT "PRESSIONE Q 
UALQUER TECLA PARA RETORNAR”; 
560 GET AS 

570 RETURN 

599 REM *** OPCAO 2 **x 


600 PRINT TAB( 10);"LISTA DE 
CRIANCAS” 

610 PRINT PRINT 
620 FOR J = 1 TOR 
630 PRINT CHS(J) 


640 NEXT 

650 PRINT : PRINT "PREGÉR 
UALQUER TECLA PARASRETORNI 
660 GET AS 

670 





RETUR 






NE, 


apar 1 
Oceserriiar o 









crianças que têm no mínimo um deles, 


a mais interessante. Se 
É nome de um animal, o 
omputador imprimirá uma lista de 


A matriz mostra alguns 
revendedores de 1 
carros classificados por | 
país e marca de automóvel. 





informando ainda quantos espécimes 
cada criança possui. 


699 kEM ** OPCAO 3 ** 

700 PRINT ''" INTRODUZA TIPO DE 
ANIMAL" 

705 DIM 157): INPUT LINE 15 
710 PRINT '"PESSOAS QUE TEM UM 
go 

/20 FOR 3=1 TO c 

730 IF p$(3)=15 THEN 
440 NEXT 3 

750 IF fo=0 THEN 

àL NÃO ENCONTRADO. 

RA VEZ.”: GOTO 700 

760 FOR 3=1 TO r 


LET fo=3 


PRINT ” ANIM 
TENTE OU” 





am 































































d 770 IF n(3,€0)2b THEN PRINT c ANIMAL" 770 IFN(J,FO) >OTHENPRINTCHS (J);: 
S(3);” ";n(á ção) 705 PRINT"LISTA DE TODOS QUE TE " ":;N(J,E0) 
| 775 NEXT 5 M”; 775 NEXT 
780 PRINT ''” PRESSIONE QUALQU 710 INPUT P$ 780 PRINT:PRINT"PRESSIONE QUALO 
ER TECLA PARA | RETORNAR" 715 PRINT:PRINT UER TECLA PARA RETORNAR” : 
785 PAUSE O 720 FORJ=1TOC 785 IFINKEYS=""THEN78S 
| 790 RETURN 730 IFPETS(J)=PSTHENFO=J 790 RETURN 
740 NEXT 
750 IFFO=0THENPRINT"ANIMAL NÃO 
| ENCONTRADO. TENTE DE NOVO!":GOT 
699 REM 44t OPCAO 3 Wt+ 0/00 699 REM *%* OPCAO 3 *** 
700 PRINTTAB(5);"DIGITE TIPO DE 760 FORJ=1TOR 700 PRINT TAB( 10):"DIGITE O 


TIPO DE ANIMAL” 

fU5 PRINT TAB( 5);"LISTA DE T 
ODOS QUE TEM ”; 

10 INPUT PS 

715 PRINT : PRINT 

20 FOR J=IlTOC 

730 IF PETS(J) = PS THEN FO = 




























Fr d 

À 740 NEXT 

W 750 IF FO = O THEN PRINT “ANI 
EM MAL NAO FOI ENCONTRADO. TENTE 
"| NOVAMENTE!": GOTO 700 

1 760 FOR J = 1 TOR 

Ro 770 IF N(J,FO) > O THEN PRI 
NT CHS(J);” ":N(J,E0) 

775 NEXT 

780 PRINT : PRINT "PRESSION 
E QUALQUER TECLA PARA HETOR 
NAR” 

785 GET AS 

790 RETURN 


Esta rotina é mais complica- 
da, de modo que vale a pena 
explicá-la com mais detalhes. 

A linha 710 guarda nossa 
entrada na variável PS (i$ no 

Spectrum). Digamos, por 

exemplo, que nossa entra- 
da seja “GATO”: assim, 

P$ = “GATO"' (ouiS = 

“GATO”). As linhas 720 

a 740 verificam se há al- 
gum “GATO” na lista 
de animais. Em caso 
positivo, a variável FO 
receberá o número da 
coluna em que “GATO” 
toi achado. No nosso caso, FO=2 
porque “GATO” está na coluna 2. 
5e O computador atingir a linha 750 
e FO for igual a O (ou seja, se seu valor 
for igual a O na linha 300), isso signifi- 
ca que o animal pedido não está na lis- 
ta. Em consequência o programa reco- 
meçará. 

As linhas 760 a 775 percorrem cada 
elemento na coluna 2. Se algum elemen- 
to for maior que O, isso significa que 
a pessoa nessa linha tem um gato e seu 
nome será impresso junto com a infor- 
mação de quantos animais dessa espé- 
cie ela tem. 

Verifique o programa e veja se você 


pode seguir o que o computador está fa- EE 
zendo a cada passo. A opção 4 permite EM 








| | | | 
| | | 


entrar o nome de uma pessoa para ver 
a lista de seus animais. 

O programa funcionará de modo 
quase igual ao da última rotina. Desta 
vez, entretanto, o computador procura- 
rá por uma linha particular da matriz, 
e não por uma coluna, como acontecia 
no exemplo anterior. 


799 REM ** OPCAO 4 ** 


800 PRINT ''" INTRODUZA O NOME 
DA CRIANCA" 

BOS DIM €S(5): INPUT LINE ÉS 
810 PRINT "ANIMAIS PERTENCENTE 
SA "1L3 

815 PRINT '“ 

820 FOR j=1l TO Fr 

B30 IF c$(3)=fS THEN LET fo=) 
Bão NEXT 3 


Que problemas podem ocorrer 
com laços múltiplos? 

Definir uma matriz permite exercitar 
seus conhecimentos sobre os coman- 
dos FOR...NEXT e IF...THEN [tente 
contar quantos desses comandos exis- 
tem nos programas aj resentados aqui; 
você logo vai perceber que eles são 


muitos). Porém, a parte mais difícil da | 
programação de matrizes diz respeito | 


ao uso de laços FOR...NEXT múltiplos, 
ou “aninhados”” listo é, um dentro do 


outro). Com efeito, é nessa parte que | 


os iniciantes, e mesmo os programado- 
res experientes, mais se confundem. 

Examine as linhas dos programas do 
artigo. Elas são responsáveis pela lei- 
tura dos dados armazenados nas linhas 
DATA. 

Cada linha de DATA corresponde a 
uma linha da matriz de dados, de modo 
que o FOR...NEXT que controla a leitu- 
ra das linhas deve vir antes (laço mais 
externo). Se a linha de DATA contivesse 
os elementos de uma coluna da matriz, 
teriamos que usar como FOR...NEXT 
externo aquele que lê as colunas. 

E por isso que o conjunto é dimen- 
sionado como N (L,C), em vez de NC, 
L). A ordem dos índices de linha e co- 
luna no comando DIM não é muito im- 
portante, desde que você os faça 
corresponder aos laços FOR...NEXT. 

Os cabeçalhos para as linhas e co- 
lunas devem ser definidos separada- 
mente, para facilitar a compreensão. 





B50 IF fo=0 THEN PRINT '*"“NOM 
E NAO ENCONTRADO. TENTE OUTRA V 
EZ”": GOTO 800 

860 FOR J=1 TO c 

870 IF n(fo,5)>0 THEN PRINT n 


(£fo,));" ";PS(9) 
8/75 NEXT 3 
880 PRINT ''” PRESSIONE QUALQU 


ER TECLA PARA RETORNAR" 
B85 PAUSE O 


890 RETURN 

1/99 REM 44+t OPCAO 4 44h 

800 PRINTTAB(2);"DIGITE O NOME 
DE UMA CRIANÇA” 

B05 PRINT"LISTA DE TODOS OS ANTI 
MAIS QUE PERTENCEM A ”; 

B1lO INPUT FS 

815 PRINT:PRINT 

B20 FORJ=ITOR 

830 IFCHS(J)=FSTHENFO=]J 

840 NEXT 

AS0O IF FO=0OTHENPRINT: PRINT"NOME 
NÃO ACHADO. TENTE NOVAMENTE!”": 
GoTO800 

860 FORJ=1TOC 

B70 IFN(FO,J)>OTHENPRINTN(FO,J) 
"o PM PETS(J) 

875 NEXT 

880 PRINT:PRINT"PRESSIONE 
UER TECLA PARA RETORNAR”; 
B85 IFINKEYS=""THENBEBS 
890 RETURN 


[1 


799 REM *** OPÇÃO 4 *x% 
800 PRINT TAB( 5);"DIGITE O N 
OME DE UMA CRIANCA” 





QUAL 


BO5 PRINT "LISTA DE TODOS OS A 

NIMAIS QUE PERTENCEM A "; 

B10 INPUT FS 

815 PRINT : PRINT 

820 FOR J = 1 TOR 

830 IF CHS(J) = ES THEN FO = J 
840 NEXT 

850 IF FO = O THEN PRINT : PR 
INT "NOME NÃO ENCONTRADO. TENTE 
NOVAMENTE !”": GOTO 800 

860 FOR J = 1 TOC 

870 IF N(FO,J) > O THEN PRINT 
N(FO,J);" "iPETS(J) 

8/75 NEXT 

880 PRINT : PRINT "PRESSIONE Q 

UALQUER TECLA PARA RETORNAR”; 
885 GET AS 

890 RETURN 


A opção 5 pede que você entre um 
número e imprime a lista de pessoas que 
têm no mínimo esse número de animais, 
Ela também informa quantos animais 
cada pessoa tem. 

Digite então a próxima sub-rotina da 
seguinte forma: 


899 REM ** OPCAO 5 ** 





900 PRINT '" DIGITE UM NUMERO 
PARA LISTAR TODOS OS QUE TE 
M AO MENOS ESTE NUMERO DE ANI 
MAIS" 

910 INPUT a 

915 PRINT '' 

920 FOR 3=1 TO r 

930 LET p(j)=p(s)+n(a,k) 

935 NEXT k 

940 LET p(3))=0 

945 LET p(3)=0 

950 NEXT 3 

955 IF fo=0 THEN PRINT ''"NIN 
GUEM TEM TANTOS ANIMAIS !” 


960 PRINT *'” PRESSIONE QUALQU 
ER TECLA PARA RETORNAR” 

970 PAUSE O 

980 RETURN 


o 


899 REM 444% OPCAO 5 44+ 

900 PRINT"DIGITE UM NUMERO PARA 
LISTAR TODOS QUE TEM AO MENOS 

ESTE NÚMERO DE ANIMAIS”; 

910 INPUTA 

915 PRINT:PRINT 

920 FORJ=1TOR 

925 FORK=1TOC 

930 PT(J)J=PT(I)JANII,K) 

935 NEXTK 

940 IFPT(J)>=ATHENPRINTCHS(J);” 
"Fer Ig) FOI 

945 PT(J)=0 

950 NEXTJ 

955 IFFO=OTHENPRINT: PRINT"NINGU 
EM TEM TANTOS ANIMAIS!” 
960 PRINT: PRINT"'PRESSIONE 

UER TECLA PARA RETORNAR” 
970 IF INKEY$=""THEN970 


QUALO 


980 RETURN 
Cad 

899 REM *** OPCAO 5 4% 

900 PRINT "DIGITE UM NUMERO PA 


RA LISTAR TODOS QUE TEM AO MENO 
S ESTE NUMERO DE ANIMAIS”; 


910 INPUT A 

915 PRINT PRINT 

920 FOR J = 1 TOR 

925 FOR K = 1 TOC 

930 PT(J) = PT(J) + N(J,K) 

935 NEXT K 

940 IF A< = PT(J) THEN PRIN 
T CHS(J);” TSPTIJ)-FO = À 

945 PT(J) = O 

950 NEXT 

955 IF FO = O THEN PRINT : PR 
INT "NINGUEM TEM TANTOS ANIMAIS 
pM 

960 PRINT PRINT "PRESSIONE Q 


UALQUER TECLA PARA RETORNAR” ; 
970 GET AS 
980 RETURN 


Antes de comparar O número que vo- 
cê imprimiu com os totais para cada 
criança, o computador precisa calcular 
esses totais. As linhas 920 e 925 definem 
os laços que percorrem as linhas e colu- 
nas da matriz, enquanto a linha 930 cal- 














cula o total de animais em cada linha. 
Os totais são armazenados em um con- 
junto chamado PT(), ou p(), no Spec- 
trum. Se o total de cada linha for maior 
ou igual ao número que você entrou, O 
nome da criança será exibido na tela, 
juntamente com o número de animais 
que ela possui. 

Assim que o nome de alguém for im- 
presso, o indicador FOUND (ou seja, 
achado, em inglês) será igualado a 1. Se 
FOUND ainda for igual a O quando o 
computador atingir a linha 955, isso sig- 
nifica que nenhuma criança tem aquele 
número de animais que você solicitou, 
e o programa lhe dara essa informação 
por meio de mensagem. 

A última opção — de número 6 — 
mostra a matriz na tela. 

Como é dificil encaixar todos os no- 
mes dos animais de estimação no topo 
da tabela, o programa imprime núme- 
ros de referência, em vez de palavras. Em 
compensação, ele imprime os nomes dos 
proprietários. 


999 
1000 





OPCAO 6 ** 
'TCRIANCAS”, "ANIMAIS 


REM *X 
PRINT 


1010 
1015 
1020 
1025 
1030 
1035 
1040 
1050 
1060 


PRINT "TAB 9; 

FOR 3=1 TO c 

PRINE Jj" 

NEXT 3: PRINT 

FOR j9=1 TO Fr 

PRINT 'cS(3I);TAB 9; 
FOR k=1 TO c 

PRINT n(3,k);” a 
NEXT k 
1065 NEXT 3 
1070 PRINT *** 
ER TECLA PARA 
1080 PAUSE O 
1090 RETURN 


TIA 


999 REM$&tHt OPCAO 6 +tt 

1000 PRINT €32,"CRIANCAS”,"ANIM 
AIS” 
1010 


PRESSIONE QUALQU 
RETORNAR” 





PRINT €72,; 

FOR J=1 TO € 

PRINT J 

NEXT: PRINT 

FOR J=1 TO R 

PRINT:PRINT CHS(J) TAB(B); 
FOR K=1 TO € 

PRINT N(J,K); 

1060 NEXT K,J 

1070 PRINT:PRINT:PRINT º 
ONE QUALQUER TECLA PARA 
NARº 

1080 IF INKEYS="" THEN 1080 
1090 RETURN 


[JEI 


999 REM 


1035 
1040 
1050 


PRESSI 
RETOR 


xxx OPCAO 6 XXX 


1000 PRINT "CRIANCAS","ANIMAIS 
1010 HTAB 15 

1015 FOR J = 1 TOC 

1020 PRINT J;" *; 

1025 NEXT PRINT 

1030 FOR J =1TOR 

1035 PRINT PRINT CHS(J); TAB 
A =) 

1040 FOR K = 1 TOC 

1050 PRINT N(J,K);" "; 

1060 NEXT : NEXT 

1070 PRINT PRINT PRINT "PR 


ESSIONE QUALQUER TECLA PARA RET 
ORNAR” ; 

1080 GET AS 

1090 RETURN 


999 REM 441 OPCAO 6 +ttt 

1000 PRINT"CRIANÇAS”,"ANIMAIS” 
1010 LOCATE 15 

1015 FORJ=LTOC 

1020 PRINTJ; 

1025 NEXT:PRINT 

1030 FORJ=ITOR 

1035 PRINT:PRINTCHS(J);TAB(15); 
1040 FORK=1ITOC 

1050 PRINTN(J,K); 

1060 NEXT:NEXT 


1070 PRINT:PRINT:PRINT"PRESSION 
E QUALQUER TECLA PARA RETORNAR” 


1080 IFINKEYS=""THEN1080 
1090 RETURN 





USOS PARA AS MATRIZES 


Uma matriz usada dessa forma é cha- 
mada de base de dados. E possivel criar 
bases de dados para os mais diversos 
fins: para um levantamento da vida am- 
mal, por exemplo. Numa pesquisa des- 
se gênero, a base de dados mostraria o 
número de certos animais, assim como 
o tipo de habitat onde eles são encon- 
trrados. As linhas da matriz indicariam 
os tipos de animais, e as colunas, os ha- 
bitats. Em seguida, os dados poderiam 
ser examinados para verificar a distri- 
buição dos animais em determinadas re- 
giões ou épocas do ano. 

A base de dados pode ser aplicada 
também em levantamentos de tráfego 
em estradas: para verificar, por exem- 
plo, que tipos de carros passam por ca- 
da seção de uma rodovia. Ela se presta 
ainda para aplicação no campo da nu- 
trição. Assim, a matriz conteria os da- 
dos de cada tipo de alimento, com rela- 
ção ao seu conteúdo de proteinas, gor- 
duras, carboidratos e calorias. Com 
uma matriz desse tipo, seria fácil impri- 
mir todos os alimentos que apresentas- 
sem uma certa quantidade de proteinas, 
ou tantas calorias, ou que oferecessem 
certas combinações de elementos, 


1 EO: 





COMO USAR A DECLARAÇÃO REM 

Não basta que o programa em BA- 
SIC esteja correto ou passe por todos 
os testes: é preciso ainda que ele es- 
teja bem documentado e estruturado 
de forma lógica e clara. 

Para evitar confusões por parte do 
usuário e mesmo do programador na 
compreensão do que foi digitado, 
costuma-se utilizar um mecanismo co: 
nhecido como documentação interna 
do programa. Este identifica, por meio 
de títulos e comentários colocados na 
listagem, as diversas partes do progra- 
ma. Isso é feito pelo comando REM, 
que é umaabreviatura da palavra REM- 
ark (comentário, em inglês). O REM 


| não é uma declaração executável (lou 


seja, ao encontrá-la em um programa, 
o computador simplesmente a ignora 
e passa adiante). 

Uma das funções do REM consiste 
em identificar o programa, prestando 
informações (chamadas cabecalho) co- 
mo: para que serve, para que máquina 
ele está destinado, quem o escreveu, 
quando etc. Eis um exemplo: 


LO REM === =>+—+ == = ss sê meros | 
15 REM PROGRAMA CREPE 

25 REM Simular o 3090 de crepe | 
30 REM VERSAO:1DATA:20/02/198B6 
35 REM NOME P/ GRAVACAO: CREPOI1 
40 REM 

45 REM COMPUTADOR: TK-90X 


50 REM 
55 REM PROGRAMADO POR: RENATO 
SABBATINI 
60 REM -=-————==——- =... == 
A colocação de cabeçalhos como 
esse evita muitos dissabores. 
Outra função do REM é informar pa: 
ra que servem certas partes do progra: 
ma. Por exemplo: 


350 REM 
355 


e SA E O E RS E 


VES=ZERO 

REM SE E', TERMINA O PRO- 
GRAMA 

365 REM -==="="——— ===... 2... 

370 IF NAVES=0 THEN GOTO 99 


O ideal seria colocar um comentá- 
rio para cada linha do programa. Isso 
pode ser feito facilmente nos micros 


360 


MEMORIA NECESSARIA:16 K | 


REM TESTA SE NUMERO DE NA 


que aceitem comandos múltiplos por | 


linha: 


500 GOSUB 890 
CALCULO 

O emprego de comentários é simpli- 
ficado, em vários micros, pelo apóstro- 
to ('), usado como abreviatura dv 
comando REM: 


:- REM SUBA. 


Isto é um comentário 















Os jogos de aventura são uma boa al- 
ternativa para quem está cansado dos 
arcaicos videogames é fliperamas. Neles, 
o jogador é totalmente envolvido por 
um mundo fantástico, criado unicamen- 
te pela imaginação do programador. 


A ORIGEM DOS JOGOS DE AVENTURAS | 





A idéia de criar jogos de aventura 
surgiu da popularidade, nos EUA e na 
Grã-Bretanha, dos jogos de ação não- 
computadorizados, tais como Masmor- 
ras e Dragões e, ao mesmo tempo, do 
desejo de se utilizar os computadores 
para fazer coisas mais interessantes do 
que processar dados. 

Por outro lado, os jogos não-compu- 
tadorizados não atendiam plenamente à 
demanda do público, que exigia emo- 
ções cada vez mais fortes. Essa deman- 
da só foi satisfeita pelos jogos de aven- 
turas programados para o computador. 

Em Masmorras e Dragões os jogado- 
res assumem o papel de certos persona- 
gens, que lutam encarniçadamente (na 
imaginação) num lugar conhecido como 
Masmorra. Esse lugar, por sua vez, € 
criado por outro jogador, que faz o pa- 
pel do Senhor da Masmorra. Nos jogos 
de aventura, o programador vive um 
personagem parecido com este, poden- 
do inventar, assim, seu próprio mundo, 

Ao contrário de outros jogos, em 
Masmorras e Dragões os jogadores não 
podem escolher as caracteristicas de seus 
personagens; isso depende inteiramente 
do jogo. Em algumas versões mais sofis- 
ticadas, os jogadores podem selecionar o 
equipamento e os mantimentos que os 
personagens vão usar, desde que isso se- 
ja feito no início do jogo, antes de co- 
meçar a aventura. O primeiro jogo de 
aventura destinado a computadores foi 
escrito para máquinas de grande porte, 
em linguagem FORTRAN, e não em BA- 
SIC. O programa ocupou aproximada- 
mente 300k de memória, ou seja, bem 
mais do que a memória RAM total da 
maioria dos micros pessoais. Apesar do 
seu tamanho e complexidade, esse jogo 
conquistou milhares de usuários de com- 
putadores nos Estados Unidos e no Ca- 
nadá; eles passaram a dedicar suas noi- 
tes a tentar decifrar os mistérios do jogo. 


COMO PLANEJAR 
UMA AVENTURA 


9 PROGRAMAÇÃODEJOGOS 9 
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Sair da rotina e fazer da vida uma 

aventura errante: quantos 

de nós já não sonhamos com isso? Veja 
como fazer essa mudança, vi 

aventuras incríveis... no no computada? 


mm :syg a 











































Na realidade, a popularização dos jo- 
gos de aventura começou quando um jo- 
vem programador chamado Scott 
Adams desenvolveu, em 1978, um jogo 
para microcomputador TRS-80 e 
provou que era possivel escre- 
ver uma aventura razoá- ASS 
vel em um espaço de ad 
memória bem menor. Desde então, os 
temas de jogos adotados por Adams — 
A Terra da Aventura, O Refúgio do 
Pirata, O Mistério do Parque de 
Diversões etc. — têm sido usa- 
dos e recusados inúmeras vezes 
pelos escritores de outros jogos. 


TIPOS DE AVENTURAS 


mr 
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Como as aventuras para grandes Wa =5 
computadores, os jogos de AdamsNass 
apresentavam somente textos na tela, 
Na verdade, os programas que usam 
apenas textos são ainda os mais popu- 
lares. 

Existem ainda inúmeros jogos de 
aventura para computadores que utili- 
zam ilustrações desenhadas na tela pa- 
ra situar, orientar e motivar o usuário. 
Entretanto, os gráficos precisam ser 
muito sofisticados, para poder compe- 
tir com a imaginação do jogador. Por 
exemplo, você poderia conceber um 
monstro bem mais horripilante do que 
seria capaz de reproduzir, mesmo nas te- 
las gráficas mais avançadas. Portanto, 
é bem possivel que os gráficos “'estra- 
guem” sua diversão: o principal argu- 
mento contra a sua utilização é que eles 
desperdiçam grande parte da memória, 
que poderia ser usada para expandir o 
campo da aventura. Certas aventuras 
apresentam uma contagem de pontos, 
sempre que uma etapa da busca é com- 
pletada. Desse modo, o jogador pode 
avaliar seu desempenho, caso tenha si- 
do derrotado em algum estágio. Alguns 
programas chegam ao ponto de classi- 
ficar esse desempenho com conceitos, 
que podem ir de “palhaço” a “perito” 

Outros jogos não fornecem qualquer 
dica de como o jogador está se saindo 
ou da proximidade do desfecho. 


pois da qual a aventura chega ao fim. 
Alguns costumam durar muitas horas, 
ou dias, podendo ser interrompidos e re- 
tomados a qualquer momento. 





UMA HISTÓRIA SEM FIM 


Seja qual for o caso, porém, a diver- | vi 
são maior está na solução de uma série Normalmente, quando se inicia uma vi 
aparentemente infinita de charadas, de- | aventura através do comando RUN, são rá 


= Ta ur 








dadas informações sobre o mundo em 
que se acaba de entrar: este pode ser um 
lugar exótico na Terra, um planeta dis- 
tante, ou um local imaginário. O jogo 
pode acontecer em épocas diversas. Ge- 
ralmente, são fornecidas informações 
como: quem governa o lugar; quem é 
você e como fazer para atingir o objeti- 
vo e ganhar o jogo. Depois disso, apa- 
recerá uma primeira descrição do local, 


provavelmente dizendo algo como: 


VOCÊ SE ENCONTRA PRÓXIMO A UM 
ENORME CALDEIRÃO CHEIO DE UM 
LÍQUIDO VERDE BORBULHANTE. HA 
UM CHEIRO DEMONIACO NO AR. UMA 
COLHER ESTA NO CHÃO. 

VOCÊ PODE IR PARA O LESTE 
OESTE 
NORTE 
E AGORA? 


| | | 


JOGOS DE AVENTURA 
COMO JOGAR 

DICAS PARA VENCER OS 
PERIGOS DE UM JOGO 


COMO CRIAR UMA AVENTURA 








Agora, você tem que decidir o que fa- 
zer. Será conveniente usar a colher pa- 
ra misturar o líquido ou mesmo experi- 
mentá-lo? Não seria melhor deixar isso 
de lado? Ou talvez fosse preferivel pro- 
curar um recipiente para levar um pou- 
co do liquido verde com você? 

Se decidir usar a colher, digite algo 
assim: PEGUE COLHER; a resposta do 
computador será: OK ou VOCÊ AIN- 
DA NAO PODE PEGAR A CO- 
LHER!, ou alguma outra mensagem. 

Em cada etapa do jogo você deve in- 
formar ao computador exatamente o 
que pretende fazer. A forma de fazer is- 
so dependerá apenas do tipo de jogo. A 
maioria deles espera você digitar seus 
comandos no computador através de 
um verbo seguido de substantivo; por 
exemplo: PEGUE COLHER. 

Jogos mais sofisticados aceitam sen- 


tenças completas, mas isso é uma exce- 
ção à regra. Esses tipos de jogos permi- 
tem-lhe dizer algo como: MATE O IN- 
SETO PISANDO NELE ENQUANTO 
CANTA “O TICO-TICO NO FUBA”. 

A maioria dos jogos de aventura con- 
segue entender abreviaturas das palavras 
válidas. Por exemplo, é muito comum, 
numa aventura, digitar N em vez de 
NORTE. As direções podem ser pontos 
cardeais — N,S, Le O — ou colaterais 
— SE, SO, NE e NO —, ou instruções 
como PARA CIMA, PARA BAIXO. 

Um jogo típico de aventura é basca- 
do numa grade de locais possíveis, que 
assume geralmente a forma de um qua- 
drado. Dependendo da imaginação do 
programador, esses lugares podem re- 
presentar ambientes tão variados como 
os quartos de um castelo, os subterrá- 
neos de uma mina etc. 








DICAS PARA VENCER 


Habitualmente, existe apenas uma 
solução para a aventura: por exemplo, 
encontrar um pote de ouro e levá-lo pa- 
ra o fim do arco-íris, ou matar um guer- 
reiro medieval é escapar ileso etc. Até 
chegar a esse objetivo, o jogador preci- 
sa resolver toda uma série de problemas. 
O mais provável é que ele tenha que fa- 
zer muitas tentativas diferentes até con- 
cluir a aventura. 

Existem algumas regras básicas e di- 
cas que o ajudarão a resolver mais ra- 
pidamente a maioria dos jogos. Quase 
todos os objetos que você encontrar nas 
aventuras serão de alguma utilidade. A 
existência de muitas pistas completa- 
mente falsas representa um desperdicio 
de memória, embora seja necessário es- 
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tar sempre atento para alguns objetos 
que podem ser “facas de dois gumes”. 
Por exemplo, o jogador poderia estar 
carregando uma sacola com moedas de 
ouro para passar pelo pedágio de uma 
ponte; caso ele se decidisse a nadar no 
rio, porém, o peso delas o faria afun- 
dar. Como regra geral, é aconselhável 
tentar carregar o maior número possível 
de objetos, mas algumas vezes apenas 
uma parte deles lhe será realmente útil. 

Quase sempre, a maioria dos objetos 
é usada somente uma vez durante uma 
aventura. Mas há exceções: uma espa- 
da, por exemplo, poderia ser usada mui- 
tas vezes para derrubar gigantes, dra- 
gões ou bandidos. Dessa forma, se vo- 
cê for obrigado a limitar o número de 
objetos que leva consigo, deve ter em 
mente que é mais seguro descartar os 
que já foram usados uma vez. 

Outra regra geral; desenhe sempre 
um mapa, marcando nele os nomes dos 
aposentos, a posição dos sentinelas e dos 
objetos distribuidos pelos quartos, to- 
das as entradas e saídas com suas dire- 
ções e outros pontos de referência que 
lhe possam ser úteis. 

O mapa o fará economizar tempo e 
esforço quando você estiver retornando 
para algum ponto anterior — manobra 
que você repetirá várias vezes durante 
o jogo. Se tiver que abandonar algum 
objeto, por não poder carregar tudo, 
não se esqueça de marcar a posição de- 
le no mapa. A importância do mapa es- 
tá em que ele lhe permitirá ter certeza 
de que explorou todas as possibilidades 
da aventur: 
salvará sua ''vida””. 

Certos jogos permitem que você pe- 
ca um inventário do que está carregan- 
do. Assim, quando estiver diante de 
uma charada, procure saber exatamen- 
te o que tem em mãos, digitando IN- 
VENTARIO, LISTA, ou algo seme- 
lhante, dependendo da aventura. 

Há jogos, ainda, que dão ao jogador 
a possibilidade de pedir ajuda. A forma 
de fazê-lo varia, mais uma vez, confor- 
me o conteúdo da aventura. Frequente- 
mente, porém, você obterá algo assim, 
em resposta ao seu pedido: 
NENHUMA AJUDA POSSÍVEL. 

Alguns jogos seguem cuidadosamen- 
te o enredo de um livro específico (por 
exemplo, 4 Hha do Tesouro, escrito em 
1833 por Robert Louis Stevenson). Nes- 
tes casos, é altamente recomendável ler 
o livro em questão. 

Outros jogos inspiram-se apenas em 
alguns capítulos ou idéias de um roman- 
ce famoso. Assim, se você encontrar nu- 
ma aventura algum elemento que o fa- 
ça recordar um texto literário e tiver di- 





ficuldades para resolver um determina-ga 


do problema, tente encontrar a respos- 
ta consultando o livro. Um dicionário 
de sinônimos pode ser de grande utili- 
dade, permitindo que o jogador explo- 
re todas as variações possiveis de uma 
determinada frase. Por exemplo: o pro- 
gramador pode ter usado no jogo a pa- 
lavra POLIR, em vez de LUSTRAR. 
Uma última dica: se o jogo permitir 
o uso do comando GRAVAR em algu- 
mas etapas, e você estiver prestes a en- 
frentar um grande perigo, então arma- 
zene a aventura no estágio em que ela 
se encontra, antes de dar o passo deci- 


sivo, pois, se você for '“'morto””, poderá 


voltar atrás e continuar a partir do pon- 
to em que parou. 





CRIE AS SUAS PRÓPRIAS AVENTURAS 


A criação de aventuras é uma boa 
maneira de dominar a linguagem BA- 
SIC. Quase todos os aspectos importan- 
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tes dessa linguagem são utilizados nes- 
se tipo de jogo: variáveis, matrizes, for- 
matos de telas, cadeias alfanuméricas, 
comandos IF, e assim por diante. 

Muitos jogos de aventuras à venda 
ainda são escritos em BASIC, pois não 
há muita necessidade de velocidade de 
execução do programa. 

Antes de programar um jogo desse 
gênero, você precisa ter uma idéia bem 
clara do que pretende fazer e do enredo 
da aventura. A seguir, planeje cuidado- 
samente a trama com suas charadas, pe- 
rigos, objetos etc. 

Para começar, pegue uma folha de 
papel e faça um rascunho de algumas 
idéias. Não se preocupe se ainda não 
tem uma visão completa da ordem do 
Jogo: o que você precisa inicialmente é 
de uma noção do roteiro, do local da 
aventura e de algumas charadas para o 
jogador resolver. 


Quanto espaço de memória necessi- | 
to para escrever um jogo de aventura” | 

Nas próximas lições de INPUT de- 
senvolveremos uma aventura simples, 
ocupando cerca de 5K de BASIC. Co- 
mo todo primeiro passo, esse jogo não 
trará episódios de grande emoção. Seu 
objetivo é apenas introduzi-lo ao mun- 
do fascinante da aventura. 

Os melhores jogos têm um grande 
número de aposentos e charadas e são 
muito difíceis, devido ao efeito cres- 
cente de problemas cada vez mais 
complicados. Com uma quantidade li- 
mitada de memória, você será forçado 
a determinar um número menor de pro- 
blemas, que por sua vez serão mais di- 
fíceis do que o normal. Isso, contudo, | 
não é muito satisfatório. 

Um jogo como esse exige um com- 
putador com, no mínimo, 16K de me- 
mória; mas sugerimos uma máquina 
com 48 ou 64K para jogos realmente 
desafiantes. 


O que devo fazer se cair numa ar- 
madilha durante a aventura? 

Não desista; tentenovamente quan- 
do tiver uma nova idéia ou estratégia. 

Se você realmente empacat, os jo- 
gos de aventuras comercializados ofe- 
recem um folheto com dicas e respos- 
tas. Muitas vezes, é preciso solicitar 
pelo correio um mapa da solução, 

Outro recurso para ajudá-lo são as 
revistas do gênero, que costumam 
apontar a solução completa de aven- 
turas complexas. 





Além de livros, você pode inspirar- 
se em filmes, programas de TV e peças 
teatrais, ou mesmo inventar novas his- 
tórias. Pode também buscar idéias em 
outras aventuras. Mas o melhor recur- 
so para sua Inspiração é fazer trabalhar 
a imaginação. 

Ao mesmo tempo, procure alcançar 
um certo equilíbrio entre o desafio e as 
condições para vencê-lo. Não é conve- 
niente criar uma aventura que qualquer 
um poderia resolver no espaço de meia 
hora. Em contrapartida, seu jogo não 
deve apresentar problemas insolúveis, A 
regra básica é: “dé aos jogadores uma 
chance”... mas não exagere. 

Tente não deixar muitos aposentos 
ou locais vazios. Além de ocupar muito 
espaço de memória, estes não contri- 
buem para a resolução dos problemas 
e tornam o enredo cansativo. 

Por outro lado, procure evitar que as 
suas primeiras aventuras sejam excessi- 
vamente complexas, para que os proble- 
mas que aparecem ao longo da história 
possam ser resolvidos por quem ainda 
não tem prática; familiarize-se com o te- 
ma antes de aventurar-se em qualquer 
enredo extravagante; mantenha-se alerta 
quanto ao espaço restante de memória, 
pois programas como esses tendem a se 
tornar gigantescos. 

No jogo de aventura que será elabo- 
rado nas próximas partes do curso de 
Programação de jogos, encontraremos 
muitas declarações REM (comentários, 
para entender o fluxo do programa). 
Entretanto, para economizar memória 
em jogos com longas aventuras, é pre- 
ferivel trabalhar sem tais declarações, 
mesmo que no começo elas facilitem a 
criação da trama. 

Você poderá também poupar espaço 
de memória na descrição dos aposentos. 
Descrições muito curtas, porém, tendem 
a estragar todo o prazer suscitado pela 
aventura. 


O ESPACO RESTANTE DE MEMORIA 





Ão escrever um longo jogo de aven- 
tura, é fácil descobrir quando se está 
chegando ao limite de memória do com- 
putador. Obviamente, os problemas de 
desperdício de memória tornam-se mais 
graves no caso de máquinas com memó- 
rias menores (na verdade, seria perda de 
tempo tentar escrever um programa de 
aventura em um computador que tenha 
menos do que 16K de RAM). 


Digite a seguinte linha, em modo 
direto: 


PRINT (PEEK 23730 + 256* PEEK 
23731) — (PEEK 23653 + 256" 
PEEK 23654) 

O que foi digitado leva em conside- 
ração tanto o espaço ocupado pelo pro- 
grama como o usado para armazenar as 
variáveis. A melhor contagem para des- 
cobrir a quantidade de memória restante 
só será possível, portanto, depois que O 
programa tiver sido rodado. 

Para saber quanto espaço está so- 
brando, subtraia esse valor da quanti- 
dade total de memória RAM existente 
no computador, 


Nos microcomputadores das linhas 
TRS-80 e TRS-Color, o que resta da me- 
mória pode ser descoberto digitando-se: 


PRINT MEM 


Essa instrução levará em conta o espaço 
ocupado pelo programa e pelas variáveis. 
Assim, é melhor rodar antes o programa, 
durante seu desenvolvimento (se isso for 
possível), a fim de conseguir uma indica- 
ção real do total de memória usado por ele. 

Para saber quanto espaço esta sobran- 
do, subtraia esse valor da quantidade to- 
tal de memória RAM existente no com- 
putador. Há uma maneira bem fácil de 
se aumentar o espaço livre de memória 
no TRS-Color para seus programas em 
BASIC. Antes de começar a programar, 
digite esses dois comandos POKE: 


POKE 25,6 
POKE 26,1 
NEW 


Isso economizará uns 6K extras para 
seu programa, pois enganará o compu- 
tador, colocando o programa em BASIC 
dentro de um espaço normalmente reser- 
vado para gráficos de alta resolução. 

Neste caso os comandos POKE ex- 
cluem os comandos para gráficos na sua 
aventura. Se eles existirem, O seu pro- 
grama será alterado, 

Quando você armazenar o programa 
em fita ou disco e quiser carregá-lo mais 
tarde, não se esqueça de usar antes os 
comandos POKE e NEW. 


eb ico hay 


Nos microcomputadores das linhas 
Apple e MSX, o que resta da memória 
pode ser descoberto digitando-se: 
PRINT FRE(O) 

A função FRE (abreviatura de FREE€, 
ou livre, em inglês) retorna o espaço li- 
vre na memória RAM, ou seja, aquele 
não ocupado pelo programa e pelas va- 
riáveis. 








PROGRAMAS EM 
CÓDIGO DE MÁQUINA 





Agora que você já sabe traduzir do 
Assembly para o sistema hexa, 
passe a operar com código de máquina. 


Os programas em Assembly apresen- 
tados a seguir deslocam a tela um carac- 
tere para a esquerda ou para a direita. 
Monte-os na memória do micro usando 
seu programa monitor. Se você quiser 
gravar programas para uso futuro, colo- 
que-os em locais diferentes da memória. 

Os programas funcionam indepen- 
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dentemente de suas posições na memo- 
ria, de forma que você mesmo pode re- 
solver onde é melhor colocá-los. Para 
deslocar a tela mais de uma posição no 
sentido horizontal, chame a rotina em 
código de máquina de dentro de um la- 
ço FOR...NEXT. Outra opção é deslo- 
car a tela somente quando certa tecla é 
pressionada, usando INKEY$ ou GETS. 


Este programa desloca a tela para a 
esquerda (já está traduzido). 


E EXERCÍCIO EM ASSEMBLY 
E | UMPROGRAMA QUE DESLOCA A 





TELA PARA OS LADOS 


COMO FUNCIONA O PROGRAMA 
EM DIVERSOS COMPUTADORES 


ld de,1638B4 11 00 40 
ld h1,16385 21 01 40 


ld b,192 06 CO 
loop push bc cs 
ld a, (de) IA 
ld bc,3l 01 1F 00 
ldir ED BO 
ldí(de),a 12 
inc de 13 
inc hi 23 
pop bc ci 
djnz loop 10 F3 
ret Cc9 


Os comandos Id de, 16384 e ld hl,, 
16385 carregam os endereços das duas 





ATENÇÃO... 


SENTIDO! 
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primeiras posições da tela do Spectrum 
nos registros DE e HL. Já Id b,192 
transporta o registro B com o número 
192 (há 192 linhas na tela desse micro, 
e B é usado para contá-las). 

Como o registro B será usado para 
contar outras coisas também, seu con- 
teúdo ficará temporariamente armaze- 
nado na pilha (stack). Todavia, nenhum 
comando transfere apenas o conteúdo 
de B para a pilha: assim, temos que fa- 
zer essa transferência com o conteúdo de 
B e C ao mesmo tempo usando push bc. 

O acumulador é então carregado com 
o conteúdo da posição de memória cu- 
jo endereço está no registro DE, pelo co- 
mando Id a (DE). Este é um exemplo de 
endereçamento indireto. Lembre-se de 
que o conteúdo de DE é 16384. 

O comando ld bc, 31 carrega os re- 
gistros BC com o número 31, Cada li- 
nha tem 32 caracteres, mas a transferên- 





cia do primeiro caractere para a última 
posição da linha é feita independente- 
mente. Assim, basta contar até 31, 

A instrução mais poderosa aqui uti- 
lizada é Idir, que significa “carregar, so- 
mar um e repetir” (= load, increment 
and repeat). Compreender o que ela faz 
é crucial para o entendimento do progra- 
ma: o conteúdo da posição de memória 
cujo endereço está em HL — inicialmen- 
te, 16385 — é transferido para a posição 





te, 16384. A seguir, deve-se somar 1 aos 
conteúdos de HL e DE, subtrair | do con- 
teúdo de BC e verificar se o conteúdo de 
BC foi reduzido a O. Enquanto isso não 
acontecer a instrução será repetida. 

O que estava na segunda posição do 
vídeo passa então para a primeira, o que 
estava na terceira posição val para a se- 
gunda, e assim até que termine a primei- 
ra linha do video, o que acontece quan- 





do o registro de BC é reduzido a O. A 
última transferência é a da 32º posição, 
que passa para a 31º. Nessa altura, o 
conteudo de BC é subtraído de | e se 
torna 0, e o programa passa para a 1ns- 
trução seguinte. 

O conteúdo do acumulador é trans- 
ferido por Id (de), a para a posição cu- 
jo endereço está em DE. O acumulador 
contêm o código do caractere que ocu- 
pava a primeira posição da memória de 
video: 16384, endereço que estava em 
DE antes de Idir começar a incrementar 
Esse regIStrO. 

Esse processo de somar 1 ao conteú- 
do de DE foi executado sucessivamente 
desde então, e agora DE contém o en- 
dereço da última posição da primeira li- 
nha. Este é justamente o local para on- 
de desejamos transferir o caractere que 
estava no início da linha. 

Os comandos inc hl e inc de somam 


Es UMP LDxa FE 
CPX +E & 1b 
BNE — AGAIN 
RTS 
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| aos registros HL e DE, de forma que 
estes passam a conter os endereços das 
duas primeiras posições da linha seguin- 
te. Como o conteúdo da primeira posi- 
ção é transferido para o final da linha, 
independentemente de Idir, devemos in- 
crementar o valor desses registros da 
mesma forma. 

O antigo conteúdo de BC é recupe- 
rado da pilha pelo comando pop bc. O 
comando djnz subtrai 1 ao valor de B 
e “pula” sucessivamente para outros lo- 
cais do programa, até que esse valor se 
iguale a O (= decrement and jump if not 
zero). No início do programa, carrega- 
mos o registro B com 192. Esse valor fi- 
ca armazenado temporariamente na pi- 
lha para liberar o uso de BC. O coman- 
do djnz subtrai | a esse valor, que pas- 
sa a ser 191 (valor diferente de 0). As- 
sim, a instrução volta para a primeira 
ocorrência do rótulo loop. 






Esse salto continua a ocorrer enquan- 
to o conteúdo de B vai sendo reduzido 
de 192 até chegar a O. O fato de esse va- 
lor ser transferido. temporariamente pa- 
ra a pilha não altera o funcionamento das 
coisas. Desta forma, uma linha é deslo- 
cada de cada vez. Quando B finalmente 
contém o valor O, após a ultima subtra- 
ção feita por djnz, não ocorre salto, e o 
programa passa a instrução seguinte. 

O comando ret significa retorne. Ne- 
nhuma rotina em código de máquina 
funcionará direito sem uma instrução 
desse tipo no final, O microprocessador 
tentará executar qualquer coisa que es- 
teja após os códigos de seu programa. 
O conteúdo dessa parte da memória ge- 
ralmente não faz sentido, e o mais co- 
mum é a perda de controle do compu- 
tador e do conteúdo da memória. 

Mesmo quando isso não ocorre, O 
microprocessador continua lendo e ten- 


75 FB 90 
Eo FC Eb 
Ab FE EQ 
DO DE b0 
49152 


tando executar tudo o que encontra até 
o final da memória. Chegando lá, ele re- 
torna ao início da memória onde encon- 
tra as rotinas de inicialização do BASIC. 
Estas são executadas e a memória se 
apaga. 

Tente traduzir para código de máqui- 
na e introduzir em seu micro a seguinte 
rotina Assembly. 


ld de,22527 
ld h1,22526 
ld b,192 
push bc 

ld a, (de) 
ld bc,31 
lddr 
ld(de),a 
dec hl 

dec de 

Pop bc 

dijinz loop 
ret 


loop 








Esse programa começa pelo final da 
memória de vídeo e vai transferindo os 
conteúdos das linhas “de trás para a 
frente”. A diferença entre ele e o ante- 
rior é o uso da instrução Iddr, que trans- 
fere o caractere da posição cujo ende- 
reço está em HL para a posição de en- 
dereço em DE, subtraindo 1 aos conteu- 
dos de HL, DE e BC e repetindo o pro- 
cesso até que o valor em BC seja redu- 
zido a O. O comando Iddr transfere blo- 
cos de memória em sentido contrário a 
Idir. 

O salto é do mesmo tamanho que no 
programa anterior. Verifique se calcu- 
lou seu valor corretamente, olhando a 
listagem (conte os bytes a partir do fi- 
nal da instrução de salto, ou seja, in- 
cluindo o byte cujo valor está sendo cal- 
culado). 





O programa a seguir desloca a tela 
para a esquerda no ZX-81 com expan- 
são de memória. Ele já está traduzido 
do Assembly para código de máquina. 


LD DE, (16396) ED 5B 0C 40 
INC DE 13 
LD H,D 62 
LD L,E 6B 
INC H,L 23 
LD B, 24 06 18 
LOOP PUSH BC cs 
LD A, (DE) lA 
LD BC,31 01 IF 00 
LDIR ED BO 
LD(DE),A 12 
INC HL 23 
INC HL 23 
INC DE 13 
INC DE 13 
POP BC Cá 
DJINZ LOOP 10 FI 
RET c9 


PROGRAMA NO ZX-81 





A memória de video do ZX-81 não 
tem posição fixa; as posições 16396 e 
16397 contêm o endereço da primeira 
posição do vídeo. A instrução LDDE, 
(= 163) carrega os registros D e E com 
os valores contidos em 16396 e 16397 — 
o conteúdo de 16396 vai para E, e o ou- 
tro vai para D, seguindo a convenção 
“baixo-alto'”" do Z-80. Agora, o progra- 
ma sabe onde está a memória de video. 

Esse micro conta com um caractere 
de retorno de carro (NEW LINE) no ini- 
cio de cada linha que não aparece na te- 
la. Sua função é economizar o espaço 
ocupado pelo vídeo. Se a tela estiver va- 
zia, à memória usada pelo vídeo corres- 
ponderá aos 24 caracteres NEW LINE, 
que marcam onde cada linha deve 
começar. 
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Quando é usada uma expansão, es- 
ses caracteres ficam no final de cada li- 
nha. Não devemos interferir nessa or- 
ganização. 

Tal organização é responsável pelas 
diferenças entre os programas do ZX-81 
e os do Spectrum (leia com atenção a 
descrição do programa do Spectrum). 

O primeiro caractere do vídeo é um 
NEW LINE. Como não devemos alterá- 
lo, a instrução INC DE soma | ao con- 
teúdo de DE, que se torna então o en- 
dereço da segunda posição do video. 

As instruções LD H,D e LD L,E co- 
piam o conteúdo do par DE no par de 
registros HL. INC HL soma | à HL, 
que passa a conter o endereço da tercei- 
ra posição do vídeo. LD B,24 carrega o 
registro B com o número de linhas da 
tela do ZX-81. O restante do programa 
funciona de maneira idêntica à do Spec- 
trum. A única diferença é o número de 


comandos INC HL e INC DE que, no 
ZX-81, somam 1 a esses registros. Isso 
é feito uma vez para mover o programa 
para a linha seguinte e uma segunda vez 
para evitar interferências da Imha. 

Agora, tente obter os códigos hexa- 
decimais correspondentes ao seguinte 
programa em Assembly, que desloca a 
tela para a direita. 


LD HL, (16396) 
LD DE,7/90 
ADD HL,DE 
LD D,H 
LD E,L 
INC DE 
LD B,24 
LOOP PUSH BC 
LD A, (DE) 
LD BC,31 
LDDR 
LD(DE), A 
DEC HL 
DEC HL 


DEC DE 
DEC DE 
POP BC 
DJNZ LOOP 
RET 


Esse exemplo é parecido com o se- 
gundo programa apresentado para o 
Spectrum. As diferenças entre eles são 
as mesmas que encontramos antes. 


Esposas dada 


A organização da memória de video 
do MSX é bem diferente da que existe em 
outras máquinas. Esse computador uti- 
liza um microprocessador diferente da 
CPU para controlar a tela, dispondo de 
16K que não estão na RAM para utili- 
zar como memória de video. Desta for- 
ma, essa porção da memória é tratada co- 
mo dispositivo periférico, e o acesso a ela 
não é tão fácil quanto o acesso à RAM, 























Isso significa que não podemos usar 
o comando Id para colocar ou ler um ca- 
ractere na memória de vídeo. O coman- 
do Assembly utilizado para enviar da- 
dos a um dispositivo periférico é o out. 

Quando a memória de vídeo de um 
computador está na RAM, podemos fa- 
cilmente situar um caractere em qual- 
quer posição vertical ou horizontal. Se 
a tela for tratada como um dispositivo 
periférico, contudo, a instrução out sim- 
plesmente colocará os caracteres na mes- 
ma ordem em que forem enviados, a 
partir da posição do cursor. 

Temos, então, dois problemas: para 
controlar a posição do cursor, necessi- 
tamos de sub-rotinas da ROM; além dis- 
so, os 16K da memória de vídeo têm 
uma organização complicada, que varia 
conforme o tipo de tela selecionada, per- 
mitindo a exibição de caracteres, cores 
e sprites. 

Enquanto não aprendemos como 
funcionam as sub-rotinas da ROM e a 
organização da memória de vídeo, va- 
mos usar um artifício que dê ao MSX 
uma “memória de video * na RAM, cu- 
jo acesso é bem mais fácil. Isso é feito 
pelas duas rotinas que se seguem. 

A primeira copia os 960 caracteres da 
tela de textos de 40 colunas, no topo da 
memória, onde esta é manipulada de 
maneira semelhante à dos outros mi- 
cros. A segunda copia os caracteres da 
'“'memória de video” da RAM para à 
verdadeira memória de vídeo do MSX, 
que é um dispositivo periférico. 

Embora todas as rotinas apresenta- 
das funcionem independentemente de 
sua localização na memória, daremos 
exemplos utilizando endereços. 

Proteja o topo da memória do MSX 
para colocar os programas e a '“'memó- 
ria de video” (=use CLEAR 200, 
eat A seguir, carregue os pro- 

and onitor. 818 os 







ds - racteres da-tela 4 | as para O 
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jrnz, loop 20 F9 
ret Cc9 


Para fazê-las funcionar, digite ainda 
o seguinte programa em BASIC: 


1000 
1005 
1007 
1010 
1020 
1030 
1040 
1050 
1060 
1080 


SCREEN O 

DEF USR1=-8192 

DEF USR3=-8155 

FOR I=0 TO 960 

VPOKE BASE (0) +I,RND(1)*256 
NEXT I 

VPOKE BASE (0),32:X=USR1I (0) 
CLS:FOR I=1l TO 1000:NEXT 1 
VPOKE BASE(0),32:X=USR3(0) 
GOTO 1080 


Os possíveis erros podem ser corrigi- 
dos por meio do monitor. Para possibi- 
litar isso, O programa em BASIC come- 
ça na linha 1000, acima do monitor. Se 
não apagarmos o programa monitor, 
poderemos rodar o novo programa com 
RUN 1000. 

As duas rotinas fornecidas devem ser 
chamadas de um programa em BASIC. 
São especialmente importantes os co- 
mandos VPOKE das linhas 1020 e 1040, 
que posicionam o cursor no início da te- 
la para que ela possa ser lida pela roti- 
na USRI e escrita pela rotina USR2. 

Agora, você pode montar a rotina de 
deslocamento horizontal propriamente 
dita. Ela é parecida com as rotinas dos 
outros micros que usam o Z-80. Não 
apague as duas rotinas anteriores. Ulti- 
lize o endereço inicial — 8112. 





ld de,-7935 11 01 El 

ld h1l,-7934 21 02 El 

ld b,24 06 18 
loop push bc c5 

ld a, (de) lA 

ld bc,39 01 27 00 

ldir 

ld (de),a 

inc de 






> ânc hl 
pop DE [rss 
dinz loop''. 
ret 
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COMO FUNCIONAM OS PROGRAMAS 
. A “7 
A primeira rotina transf 






Cs 
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a E A 






ae 7 






memória de vídeo. Todo dispositivo pe- 


Amando hate, 8) 
fe iment ame rá 


es linfias ao programa” EA 
ed e 





pcs a direita, do Assembly Pásd cSdiro d 


III TT 





riférico tem um número desse tipo. 

Escolhemos os endereços de — 7936 
a — 6976 (57600 a 58560; o computador 
não reconhece inteiros acima de 32768 
em código de máquina) para colocarmos 
a nossa ''memória de video”' na RAM. 
Assim, O primeiro endereço dessa me- 
mória é colocado no registro HL por 
Idhl, — 7936. 

O valor 4 é colocado no acumulador 
pelo comando ld a,4. O mesmo é feito 
com 240 no registro B, por Id b,240. A 
e B funcionam como contadores. 

A instrução inir é a mais importante 
do programa. Ela coloca o valor lido na 
porta cujo número está em € na posi- 
ção de memória cujo endereço está em 
HL. A seguir, a mesma instrução soma 
| ao conteúdo de HL e subtrai | a B. 
Se o conteúdo de B não for 0, todo o 
processo será repetido (input, increment 
and repeat). Quando o conteúdo de B 
se torna O, o programa passa à instru- 
ção seguinte. 

A instrução dec a subtrai 1 ao valor 
em A, Se, após essa operação, o conteu- 
do de A for diferente de O, jrnz desvia- 
rá O curso do programa para a primeira 
ocorrência do rótulo loop ( jump re- 
lative if not zero). Isso fará com que o 
processo de ler 240 caracteres na porta 
152 seja repetido. Caso o valor em À se- 
ja reduzido a zero, o salto não ocorre- 
rá, € o programa passará então à instru- 
ção seguinte. 

O comando ret faz com que a rotina 
retorne ao BASIC. 

Em resumo, esse programa transfere 
os primeiros 960 caracteres da tela, a 
partir da posição do cursor. 

Ele faz isto repetindo quatro vezes a 
leitura e transferência de 240 caracteres 
(4x 240 = 960). 

A segunda rotina é essencialmente 
igual à primeira; apenas, trocamos o co- 
outir civis incre 
) que, em vez de es nã | 


n via para esse dis 
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NO 


as rotinas iniciais, bem como um progra- 
ma em BASIC. 


ld de,-6976 
ld h1,-6977 
ld b,24 
push be 

ld a, (de) 
ld bc,39 
lIddr 

ld (de),a 
dec hi 

dec de 

pop bc 

djnz loop 
ret 


O TRS-80 já. vem com um monitor. 
Se seu sistema não tem unidade de disco, 
responda N à pergunta inicial do compu- 
tador: BASIC (S/N)? Entramos, assim, 
no monitor. Para aprender os comandos 
especificos, consulte seu manual. 

Caso seu sistema tenha unidade de 
disco, pressione simultaneamente 
BREAK c RESET, liberando a última te- 
cla primeiro. Desse modo, o sistema se 
comportará como se não houvesse uni- 
dade de disco. 

O programa montado com o moni- 
tor permanecerá na memoria, não sen- 
do apagado nem pelo DOS nem pela te- 
cla RESET, nem pelo BASIC, se for da- 
da uma resposta adequada à pergunta 
“Memória Usada?” (resposta adequada 
é um endereço inferior ao do programa 
montado). 

A rotina que se segue desloca a tela 
um caractere para a esquerda. 


100p 


ld de,15360 11 00 3C 
ld h1,15361 2) Ol 3€ 
ld b,16 06 10 
loop push bc c5 
de Gs lA 
53 
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ld de,16383 
ld h1,16382 
ld b,16 
push bc 

ld a, (de) 
ld bc,63 
lddr 

ld (de),a 
dec hl 

dec de 

pop bc 

djnz loop 
ret 


loop 


Dirija-se à seção do Spectrum para 
comentários. 


Este programa desloca a tela para a 
esquerda. Já foi traduzido do Assembly 
para linguagem de máquina. Ele não 
funciona em sistemas com disquete. 


LDXx41024 BE 04 00 
LOOP LDB, X+ E6 B0 
PSHS B 34 04 
LDB431 C6 1F 
JUMP LDA, X+ A6 80 
STA-2,X A? LE 
DECB A 
BNE JUMP 26 F9 
PULS B 35 04 
STB-1,X E? 1F 
CMPX$1536 8Bc 06 00 
BLO LOOP 25 EA 
RTS 39 





COMO FUNCIONA O PROGRAMA 


A memória de video do computador 
começa no endereço 1024; assim, LDX 
4 1024 carrega este valor no registro X. 
LDB,X + carrega o acumulador B com 
o conteúdo da posição de memória cu- 
jo endereço está em X. A seguir, soma 
ro. PSHB, 
eina pilha 
| que 





código do | 
número 31 Ess e registrá e 

=: q. 
Re ontador, embo À Exasl 
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EN , ] 
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“so, a instrução soma 1 4X novamente. 
STA - 2,X armazena o conteúdo de A 






Sd 


— Ê o 
actere do vídeo, 
arrega B com: 


aj 
er aradamen e, | 


no endereço situado duas posições an- 
tes do conteúdo de X. Isso fica uma po- 
sição à esquerda de onde esse caractere 
foi retirado, já que X foi incrementado 
depois. 

A instrução DECB subtrai | ao con- 
teúdo de B, diminuindo esse valor de 31 
até O. Essa operação afeta o sinalizador 
O (ou flag zero), de forma que um resul- 
tado O em qualquer operação estabelece 
esse sinalizador. BNE verifica se o sina- 
lizador foi estabelecido. Caso isto não te- 
nha ocorrido, o curso do programa so- 
frerá um desvio. JUMP é o rótulo (/a- 
bel), de forma que o programa salta até 
a instrução LDA,X + e desloca para a 
esquerda o caractere seguinte, até chegar 
ao final da linha. Quando isso aconte- 
ce, DECB reduz o conteúdo do registro 
Ba 0 eo sinalizador é estabelecido. Ago- 
ra, O salto não ocorre mais, e O progra- 
ma passa à instrução seguinte a BNE. 

O comando PULS B recupera o va- 
lor no topo da pilha, colocando-o em B. 
STB-1,X faz com que o conteúdo de 
B seja armazenado uma posição atrás do 
endereço em X. Esta é a última posição 
da linha; o primeiro caractere é então re- 
cuperado da pilha. Assim, a linha é to- 
da deslocada para a esquerda, e seu fi- 
nal passa a ser ocupado pelo primeiro 
caractere. 

A instrução CMPX 41536 compara o 
endereço em X com 1536, que é o últi- 
mo endereço da memória de vídeo. BLO 
desviará o programa se o conteúdo de 
X for menor que 1536 (Branch if LOwer 
than). Loop é o rótulo, de forma que, se 
o programa não deslocar toda a tela, 
chegando ao seu endereço final, o pro- 
grama saltará para a instrução LDB,X + 
e começará a deslocar a linha seguinte. 

Se o registro X contiver 1536, o pro- 
grama terá deslocado toda a tela, e a ins- 
trução seguinte será executada, 

Qtvomando RTS retorna ao.B 


em lingua gem de máguin: 

minár com essã instrução. Se is 
co rer, O micropi Tra pio ba | 
ar qualquer c ando y 


> seu progrartiãs E 
À seguinte, des] Du 
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X41536 
DB, =X 
"PsHS B 
LDB431 
UMP | LDA,-X. 


e 





PULS a 

























CMPX41024 
BGT LOOP 
RTS 


Este programa trabalha no sentido in- 
verso ao anterior, começando pelo fim 
da memória de vídeo (1536). Ele deslo- 
ca as linhas da tela para a direita, até 
chegar ao endereço 1024. Na realidade, 
1536 é uma posição posterior ao final da 
tela, mas o pós-byte, —X, subtrai 1 ao 
conteudo do registro X após a execução 
da instrução LDX. Assim, se LDB, -X 
carregar B com o conteúdo da última 
posição da tela, o programa deverá co- 
meçar com um endereço que está uma 
posição na frente, dentro do registro X. 

Com exceção desse detalhe, o progra- 
ma funciona de maneira idêntica ao an- 
terior (confira o tamanho dos saltos que 
calcular, consultando a listagem). 


O Apple II já vem com um monitor. 
Para entrar, digite CALL — 151. Os co- 
mandos específicos estão no manual do 
computador. Para usar as rotinas em 
seus programas BASIC, basta acionar O 
comando CALL N, onde N é o endere- 
ço inicial da rotina em código. A orga- 
nização da memória de vídeo do Apple 
IH abriga duas páginas de video com di- 
ferentes modos de utilização, além de 
uma página de texto. A maior compli- 
cação, porém, é a diferença na ordem em 
que as linhas de texto ou de pontos são 
representadas na tela e na memória. A 
segunda linha de texto na tela, por exem- 
plo, não é o segundo conjunto de 40 
bytes da memória de video. 

Assim, para não tornar muito com- 
plicado este primeiro programa em As- 
sembly para o Apple II, fizemos com 
que ele deslocasse para a esquerda so- 
mente a primeira linha de vídeo. 

Este programa não funcionará no 
TK-2000. Todavia, os usuários desse mi- 
cro não precisam aprender a montar pro- 
gramas a mão, uma vez que dispõem do 
mini-Assembler. Use o endereço inicial 
hexa 320 (800 em decimal). 


LDA 4500 àS 00 
STA SFB 85 FB 
LDA 4504 A9 04 
STA SFÇ 85 FC 
LDA 4500 A9 00 
STA SFE 85 FE 
LDY 4500 AO 00 
LDA (SFB),Y Bl FB 
STA SFD 85 FD 
LDY 4501 AO 01 
LOOP LDA (SFB),Y Bl FB 
DEY 88 
STA (SFB),Y 91 FB 
INY cs 


INY c8 


CPy 4528 co 28 
BNE LOOP DO F5 
LDY 4527 AO 27 
LDA SFD AS FD 
STA (SFB),Y 91 FB 
RET 60 

Use ainda este programa em BASIC: 

5 HOME 

10 FORI = 1 Todo 

20 VTAB 1: PRINT CHR$ (64 + 1 

Ji 

30 NEXT 


40 FOR I=1TOl000 
50 CALL 800 

60 NEXT 

70 GOTO 70 


“O PROGRAMA NO APPLE II 





O comando LDA &%00 carrega O no 
acumulador, e STA SFB coloca esse va- 
lor no endereço 0020. Analogamente, 
LDA 4804 e STA SFC colocam 04 em 
00FC. Não há um comando único que 
armazene valores diretamente na 
memória. 

O endereço da primeira posição da 
memória de video do Apple é 0400 (em 
hexa). 00FB e O0FC são posições da pá- 
gina O da memória. As posições dessa 
página requerem somente um byte no 
seu endereçamento. LDA &5800 e STA 
SFE colocam O em 00FE, posição que 
será usada como contador. 

A instrução LDY 500 carrega o 
registro-indice Y com o deslocamento 
(ou seja, O, pois o programa tem que co- 
meçar no início da tela), LDA (FB),Y 
carrega o acumulador com o conteúdo 
da posição de memória cujo endereço 
está em 00FB e O0FC, mais um desloca- 
mento provocado pelo número que está 
em Y. O0FB e OOFC apontam para a po- 
sição 0400, início da tela de textos. As- 
sim, essa instrução posiciona o primei- 
ro caractere no acumulador. STA $FD 
o coloca na posição 00FD, 

A seguir, LDY &580l carrega o registro 
Y com 1. LDA ($FB)Y carrega o acu- 
mulador com o conteúdo da posição de 
endereço dado por 00FB e 00FC, mais 
um deslocamento provocado por Y, Des- 
ta vez, contudo, Y contém | em vez de 
O. Assim, essa instrução põe no acumu- 
lador o caractere da posição 0401. 

A instrução DEY subtrai | ao regis- 
tro Y, e STA (S$FB)Y coloca o caractere 
cujo código está em A na posição dada 
por O0FB e O0FC, mais o deslocamento 
em Y. Como Y foi diminuído de 1 nesse 
processo, ele tem como resultado a trans- 
ferência de cada caractere para uma po- 
sição à esquerda. 

O registro Y tem 1 duas vezes soma- 
do ao seu conteúdo por intermédio da 


repetição do comando INY, apontando 
assim para a próxima posição da tela 
CPY &$28compara o conteúdo de Y com 
28 em hexa, ou 40 em decimal, que é o 
total de caracteres por linha. BNE 
LOOP verifica o sinalizador O. Se ele 
não for estabelecido, o microprocessa- 
dor voltará para o endereço rotulado por 
LOOP e continuará de lá. 

O comando BNE envia o programa 
de volta a LOOP até que Y acabe de con- 
tar de O a 40, movendo os caracteres da 
linha para a esquerda. Quando o con- 
teudo de Y chega a 40, a condição de 
BNE não é satisfeita e o microprocessa- 
dor continua na instrução seguinte. 

A instrução LDY +$27 carrega Y com 
27 hexa, ou 39 decimal. LDA $FD car- 
rega o acumulador com o conteúdo da 
posição de memória 00FD. 

Já o comando STA ($FB),Y coloca o 
conteúdo do acumulador no endereço 
dado por 00FB e 00FC, mais o desloca- 
mento em Y. Ele posiciona o primeiro 
caractere da linha na posição 0427, que 
é a última da primeira linha de texto. 

A instrução RTS diz ao microproces- 
sador para voltar ao BASIC. Qualquer 
rotina em linguagem de máquina tem 
que terminar com RTS, caso contrário 
o microprocessador seguirá memória 
afora, tentando executar qualquer coisa 
que houver no caminho, O programa se- 
guinte desloca a primeira linha de vídeo 
para a direita. Tente calcular os códigos 
correspondentes. 


4500 
SFB 
4504 
SFC 
4500 
SFE 
+527 
(SFB),Y 
SFD 
1526 
(SFB),Y 


LDA 
STA 
LDA 
STA 
LDA 
STA 
LDY 
LDA 
STA 
LDY 
LDA 
INY 
STA 
DEY 
DEY 
CPY 
BNE 
LDY 
LDA 
STA 
RET 


Este programa opera da mesma for- 
ma que o anterior, exceto que somamos 
onde subtraimos e vice-versa, para que 
o deslocamento seja feito no sentido 
inverso, 

Os saltos são do mesmo tamanho, de 
forma que os valores calculados podem 
ser verificados na outra listagem (o sal- 
to inclui o final da instrução BNE, ou 
seja,o byte que contém seu tamanho). 


LOOP 


(SFB),Y 


SFF 
LOOP 
500 
SFD 
(SFB),Y 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 
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“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 
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PROGRAMAÇÃO DE JOGOS 
Acompanhe a criação de uma aventura e crie o seu próprio jogo. Roteiros, personagens e mapas. 
PROGRAMAÇÃO BASIC 
Formas de ampliar a utilização dos comandos gráficos e criar novas ilustrações na tela. Cores, círculos e arcos. 
PROGRAMAÇÃO BASIC 


O que é programação estruturada. Estruturas embutidas. Escolhas múltiplas. 


CÓDIGO DE MÁQUINA 


Traduzir Assembly para código de máquina: um 
trabalho para o Apple ll. 





